home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM A / PD-ROM A.iso / HyperCard / Business / Seconds to Time / background_2602.txt < prev    next >
Encoding:
Text File  |  1990-02-09  |  4.4 KB  |  218 lines
  1. -- background: 2602 from stack: in
  2. -- bmap block id: 3544
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 00
  10. -- high flags: 0002
  11. -- rect: left=143 top=126 right=145 bottom=198
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 33
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Seconds
  20. ----- HyperTalk script -----
  21.  
  22.  
  23.  
  24.  
  25. -- part 2 (button)
  26. -- low flags: 00
  27. -- high flags: 8003
  28. -- rect: left=211 top=126 right=145 bottom=264
  29. -- title width / last selected line: 0
  30. -- icon id / first selected line: 0 / 0
  31. -- text alignment: 1
  32. -- font id: 0
  33. -- text size: 12
  34. -- style flags: 0
  35. -- line height: 16
  36. -- part name: To time
  37. ----- HyperTalk script -----
  38. on mouseUp
  39.   get field "Seconds"
  40.   divide it by 60
  41.   put trunc of it into field "one"
  42.   get field "Seconds"
  43.   divide it by 60
  44.   subtract value of field "one" from it
  45.   multiply it by .6
  46.   put it into field "two"
  47.   set NumberFormat to 0.00
  48.   add value of field "one" to field "two"
  49.   Hide field "one"
  50. end mouseUp
  51.  
  52.  
  53.  
  54. -- part 3 (field)
  55. -- low flags: 80
  56. -- high flags: 0000
  57. -- rect: left=491 top=27 right=39 bottom=503
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 0 / 0
  60. -- text alignment: 0
  61. -- font id: 3
  62. -- text size: 12
  63. -- style flags: 0
  64. -- line height: 16
  65. -- part name: one
  66. ----- HyperTalk script -----
  67. Hide field "one"
  68.  
  69.  
  70. -- part 7 (field)
  71. -- low flags: 00
  72. -- high flags: 0002
  73. -- rect: left=275 top=126 right=145 bottom=330
  74. -- title width / last selected line: 0
  75. -- icon id / first selected line: 0 / 0
  76. -- text alignment: 1
  77. -- font id: 3
  78. -- text size: 12
  79. -- style flags: 256
  80. -- line height: 16
  81. -- part name: two
  82.  
  83.  
  84. -- part 8 (button)
  85. -- low flags: 00
  86. -- high flags: 0000
  87. -- rect: left=220 top=85 right=105 bottom=251
  88. -- title width / last selected line: 0
  89. -- icon id / first selected line: 21700 / 21700
  90. -- text alignment: 1
  91. -- font id: 0
  92. -- text size: 12
  93. -- style flags: 0
  94. -- line height: 16
  95. -- part name: New Button
  96. ----- HyperTalk script -----
  97. on mouseUp
  98.   go to card id 5341 of stack "Home"
  99. end mouseUp
  100.  
  101.  
  102.  
  103.  
  104. -- part 9 (field)
  105. -- low flags: 00
  106. -- high flags: 0002
  107. -- rect: left=143 top=233 right=252 bottom=198
  108. -- title width / last selected line: 0
  109. -- icon id / first selected line: 0 / 0
  110. -- text alignment: 1
  111. -- font id: 33
  112. -- text size: 12
  113. -- style flags: 0
  114. -- line height: 16
  115. -- part name: a
  116.  
  117.  
  118. -- part 10 (field)
  119. -- low flags: 00
  120. -- high flags: 0002
  121. -- rect: left=275 top=233 right=252 bottom=330
  122. -- title width / last selected line: 0
  123. -- icon id / first selected line: 0 / 0
  124. -- text alignment: 1
  125. -- font id: 3
  126. -- text size: 12
  127. -- style flags: 256
  128. -- line height: 16
  129. -- part name: c
  130.  
  131.  
  132. -- part 11 (field)
  133. -- low flags: 80
  134. -- high flags: 0000
  135. -- rect: left=222 top=298 right=310 bottom=234
  136. -- title width / last selected line: 0
  137. -- icon id / first selected line: 0 / 0
  138. -- text alignment: 0
  139. -- font id: 3
  140. -- text size: 12
  141. -- style flags: 0
  142. -- line height: 16
  143. -- part name: b
  144.  
  145.  
  146. -- part 12 (button)
  147. -- low flags: 00
  148. -- high flags: 8003
  149. -- rect: left=198 top=233 right=253 bottom=276
  150. -- title width / last selected line: 0
  151. -- icon id / first selected line: 0 / 0
  152. -- text alignment: 1
  153. -- font id: 0
  154. -- text size: 12
  155. -- style flags: 0
  156. -- line height: 16
  157. -- part name: To seconds
  158. ----- HyperTalk script -----
  159. on mouseUp
  160.   get field "a"
  161.   put trunc of it into field "b"
  162.   Multiply field "b" by 60
  163.   get field "a"
  164.   subtract trunc of field "a" from it
  165.   if it < .59 then
  166.     multiply it by 100
  167.     put it into field "c"
  168.     set NumberFormat to 0
  169.     add value of field "b" to field "c"
  170.     Hide field "b"
  171.   else if it > .59 then
  172.     set lockScreen to True
  173.     answer "Seconds in 'Time' must be less than .60" with "Try again"
  174.     if it is "Try again" then
  175.       exit mouseUp
  176.       set lockScreen to False
  177.     end if
  178.   end if
  179. end mouseUp
  180.  
  181.  
  182.  
  183.  
  184.  
  185. -- part 14 (button)
  186. -- low flags: 00
  187. -- high flags: 0000
  188. -- rect: left=232 top=283 right=303 bottom=252
  189. -- title width / last selected line: 0
  190. -- icon id / first selected line: 26635 / 26635
  191. -- text alignment: 1
  192. -- font id: 0
  193. -- text size: 12
  194. -- style flags: 0
  195. -- line height: 16
  196. -- part name: help
  197. ----- HyperTalk script -----
  198. on mouseUp
  199.   Show field "help"
  200.   wait 13 seconds
  201.   Hide field "help"
  202. end mouseUp
  203.  
  204.  
  205.  
  206. -- part 15 (field)
  207. -- low flags: 81
  208. -- high flags: 0002
  209. -- rect: left=118 top=23 right=285 bottom=372
  210. -- title width / last selected line: 0
  211. -- icon id / first selected line: 0 / 0
  212. -- text alignment: 1
  213. -- font id: 21
  214. -- text size: 18
  215. -- style flags: 0
  216. -- line height: 24
  217. -- part name: help
  218.